home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / CASTLE-HASSEL.SDA / CASTLE HASSLE (.txt)
Encoding:
Commodore BASIC  |  2019-04-13  |  9.6 KB  |  278 lines
  1. 0 REM"         WEATHERWAR
  2. 1 [143]"      WRITTEN BY BOB CARR
  3. 2 REM"   MAGIC CARPET SOFTWARE (C)82
  4. 3 [143]"
  5. 4 GOSUB260:RESTORE
  6. 5 PRINT"[147][158]"TAB(11)"[172][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][187]":PRINTTAB(11)"[161][146] CASTLE HASSLE [161]
  7. 6 [153][163]11)"GETWAIT BY MIKE FRAZERGET":[153][163]11)"LOGSTR$STR$STR$STR$STR$STR$RIGHT$ (null)STR$STR$STR$STR$STR$STR$COS
  8. 7 PRINT"    [172][198][198][198][198][198][198][198][198][198][198][198][198][198][203] [202][198][198][198][198][198][198][198][198][198][198][198][198][198][187]":PRINT"    [161][146]   INVENTORY SOFT";
  9. 8 PRINT      "WARE     82 [161]":PRINT"    [188][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][190]
  10. 9 [151]53272,21:[151]54296,15:LF[178]53281:[151]LF,0:[151]LF[171]1,0:[139]R[178]0[167][141]227
  11. 10 [153]"CLR A MAN'S HOME IS HIS CASTLE, DEFEND IT!
  12. 11 INPUT"[159]DO YOU WANT INSTRUCTIONS (Y/N)  [191][157][157][157]";A$
  13. 12 PRINT"[145][145][145]";:IFLEFT$(A$,1)="Y"THEN167
  14. 13 IFLEFT$(A$,1)<>"N"THENR=1:GOTO5
  15. 14 GOSUB222:J=1:GOSUB163:Z$=AP$:J=2:GOSUB163:Y$=AP$
  16. 15 A$=""
  17. 16 S$="                                      "
  18. 17 SS$="[154]                                      "
  19. 18 C$="[182][157][206][157][205][205][157][206][205][164][157][157][157][205]  [205][157][157][157][157][182][157][206][157][157][206][157]"
  20. 19 D$=" [157] [157]  [157]   [157][157][157]    [157][157][157][157] [157] [157][157] [157]"
  21. 20 E$=C$+"[205][157][206][157][157][206][157][181][157][157][206][157][157][157][157] [164][206] [157][157][157][157][206] [157][157][157][182]"
  22. 21 F$=D$+" [157] [157][157] [157] [157][157] [157][157][157]  [157][157][157] [157][157] "
  23. 22 G$=C$+"[205][181][157][181][157][205][205][157] [205][164] [157][157] [205][181]"
  24. 23 H$=D$+"  [157] [157]      "
  25. 24 I$=C$+"[205][205][181][157][157] [181][157][157][157] [206] [157][157][157][157] [206] [157][157][157] [181][157][157] [181]"
  26. 25 J$=D$+"   [157] [157][157] [157][157] [157] [157] "
  27. 26 PRINT"[147]  [173]";:FORV=1TO34:PRINT"[192]";:NEXT:PRINT"[189]"
  28. 27 F=28:G=28:M=3:MM=0:H=1827
  29. 28 FORV=1TO20:PRINT"[160]"SPC(38)"[160]";:NEXT
  30. 29 PRINTTAB(4)"[145][145][145][145][145][158][188][188][182][146][187][187][187][187][187]"SPC(16)"[172][172][172][172][172][181][190][190]"
  31. 30 PRINT"[207][208][195][195][195][195][195][146][190]"SPC(16)"[188][195][195][195][195][195][207][208]"
  32. 31 PRINT"[145][165][167] [219][158] [219][158][167][190][190]"SPC(14)"[188][188][165][219][158] [219][158] [165][167]"
  33. 32 PRINT"[165][167] [183] [183][170][183][208]"SPC(14)"[207][183][180][183] [183] [165][167]"
  34. 33 PRINT"[145] [180][170]    [170] [170]"SPC(14)"[180] [180]    [180][170]"
  35. 34 T$=Z$:PRINT"[145]";SPC(4.5+(8-LEN(T$))/2);T$
  36. 35 T$=LEFT$(Y$,8):PRINT"[145]";SPC(28+(8-LEN(T$))/2);T$
  37. 36 PRINTA$;:FORV=1TO40:PRINT"[162]";:NEXT:PRINT:POKE53269,255:GOSUB222
  38. 37 GOSUB113:IFF<1ANDB=0ORG<1ANDB=0THEN141
  39. 38 M=M+1:IFM>3THENM=1:MM=MM+1:B=0:PRINT"";TAB(15);"[192][192][192][192][192][192][192][192][192][192][192]
  40. 39 [139]M[178]3[175][187](1)[177].1[167]38
  41. 40 [153]"WAIT";:[129]V[178]1[164]3:[153]"CLOSE"S$"CLOSE";:[130]:[153]
  42. 41 A[178]1068:AA[178][187](1)[172]26:A[178]A[170]AA:B[178]1[171]B
  43. 42 [151]A,104:[129]V[178]1[164]4:A[178]A[170]1:[151]A,102:[130]:[129]V[178]1[164]5:A[178]A[170]1:[151]A,104:[130]
  44. 43 A[178]A[170]27:[151]A,104:[129]V[178]1[164]11:A[178]A[170]1:[151]A,102:[130]:[151]A,104:A[178]A[170]33
  45. 44 [151]A,104:[129]V[178]1[164]6:A[178]A[170]1:[151]A,102:[130]:[151]A,104:NN[178]0
  46. 45 [153]A$""SS$"  ":[153]"ONON";
  47. 46 [139]M[178]3[167][153]"TARGET"[166]18)"TARGET":[137]49
  48. 47 [139]B[178]0[167][153]"TARGET"[166]17)"ATTACKER":[137]182
  49. 48 [153]"ATTACKERWAIT"[166]17)"TARGET":[137]180
  50. 49 EE[178][181]([187](1)[172]100)
  51. 50 [139]EE[177]50[167]EE[178][181]([171]EE[173]2):[153]A$[166]14)" WIND <TANLEN"[182](EE)"CMD ":[137]52
  52. 51 [153]A$[166]14)" WIND TANTAN>"EE"CMD "
  53. 52 [153]""[166]13)"TANTAN SYSROUND"MM"CMD TANTANTAN":[141]222
  54. 53 [139]CT[178]2[167]200
  55. 54 [139]CT[178]1[167]184
  56. 55 [139]M[179]3[167]60
  57. 56 [129]Z[178]1[164]2:[153]A$""S$:[141]239:[141]136
  58. 57 [153]A$[163]13)"SYS ACT OF NATURE WAIT":[141]239:[141]136:[130]
  59. 58 [141]135:[153]"ON"S$
  60. 59 O[178]1:B$[178][202]("HLRT",[181]([187](1)[172]4)[170]1,O):N$[178]B$:[137]68
  61. 60 [139]M[179][177]1[167][141]136:[137]62
  62. 61 [153]"";[163]15)" SYSROUND"MM"CMD "
  63. 62 T$[178]Z$:[139]B[178]0[167]T$[178]Y$
  64. 63 [153]A$""S$"  ON"T$"WAIT, PICK A WEAPON":[133]"   (H,L,R,T)  SINCMDCMDCMD";N$
  65. 64 N$[178][200](N$,1):[139]N$[178]"H"[176]N$[178]"L"[176]N$[178]"R"[176]N$[178]"T"[167]B$[178]N$:[137]68
  66. 65 [139]N$[178]"S"[167][141]241
  67. 66 [139]N$[178]"Q"[167]157
  68. 67 [153]A$""S$S$:[137]63
  69. 68 W$[178]"RAIN":[139][200](W$,1)[178]N$[167]FF[178]5:TT[178]FF:O[178]2:[137]73
  70. 69 W$[178]"HAIL":[139][200](W$,1)[178]N$[167]CC[178]58:FF[178]4:TT[178]FF:O[178]0:[137]73
  71. 70 W$[178]"TORNADO":[139][200](W$,1)[178]N$[167]CC[178]102:FF[178]7:TT[178]FF:O[178]1:[137]73
  72. 71 W$[178]"LIGHTNING":[139][200](W$,1)[178]N$[167]O[178]0:[137]73
  73. 72 [153]"ONON":[137]53
  74. 73 [153]A$""S$:[153]S$:[153]"ONONTHE WEAPON IS "W$
  75. 74 [139]O[178]1[167][153]"";:[129]V[178]1[164]40:[153]"PRINT#SPC(SPC(";:[130]:[153]A$;"
  76. 75 IFCT=2THENCT=0:GOTO206
  77. 76 IFCT=1THENCT=0:GOTO190
  78. 77 IFM=3THENA1=0:IFB$="L"ANDEE<1THENA1=-1:GOTO80
  79. 78 IFM=3ANDB$="L"ANDEE>1THENA1=1
  80. 79 IFM<3THENPRINTA$"";:INPUT"CHARGE  [191][157][157][157]";BB$:A1=VAL(BB$)
  81. 80 IFA1<-150THENA1=-150
  82. 81 IFA1>150THENA1=150
  83. 82 PRINTA$""S$:PRINT"[145] CHARGE IS"INT(A1)
  84. 83 IFB$="H"THENGOSUB135:GOTO86
  85. 84 IFB$="L"THENGOSUB135:GOTO118
  86. 85 IFO=1THENPRINT"";:FORV=1TO20:PRINT"[152][166][166]";:NEXT:PRINT:EE=1.5*EE
  87. 86 E=(A1+EE)/50:DD=0:GG=104
  88. 87 IFO=2ANDE<0THENCC=78:GOTO90
  89. 88 IFO=2ANDE>0THENCC=77:GOTO90
  90. 89 IFO=2THENCC=118
  91. 90 A=1148+AA:BB=0:FF=TT:T=WW:I=0:FORW=1TO17:WW=W
  92. 91 IFT=WWTHENW=17:WW=0
  93. 92 A=A+(40+E):GOSUB102:NEXT:POKE54273,0:POKE54277,0
  94. 93 IFO<>1THEN99
  95. 94 IFPEEK(C+1)=96ORPEEK(C-1)=96THEN99
  96. 95 POKEC+1,GG:POKEC-1,GG:IFPEEK(C+2)=96ORPEEK(C-2)=96THEN99
  97. 96 POKEC+2,GG:POKEC-2,GG:IFE>0ORE=0THENPOKEC-38,32:POKEC-39,32
  98. 97 IFE<1THENPOKEC-41,32:POKEC-42,32
  99. 98 IFGG<>32THENGOSUB225
  100. 99 IFNN<>1THENGOSUB135
  101. 100 IFDD=0THENDD=1:CC=32:GG=CC:GOTO90
  102. 101 GOTO37
  103. 102 C=A:FORZ=1TOFF:C=C+1:D=PEEK(C):IFO=1ANDE<0THEND=PEEK(C-1)
  104. 103 IFD=96THENGOSUB137:W=17:O=0:RETURN
  105. 104 IFD>102ANDDD=0THENPOKE54276,0:POKE54273,0:GOSUB111
  106. 105 IFI>2THENW=17
  107. 106 POKEC,CC:NEXT:BB=1-BB:IFBB=0ANDB$="T"THENFF=FF-1
  108. 107 IFW=17THENRETURN
  109. 108 POKE54276,0:POKE54277,0:POKE54272,0:IFCC=32THEN110
  110. 109 POKE54277,9:POKE54276,17:POKE54273,CC-W*3:POKE54272,CC:RETURN
  111. 110 POKE54277,9:POKE54276,33:POKE54273,CC-12-W:POKE54272,CC:RETURN
  112. 111 FORX=1TO2:POKEC,170:GOSUB217:POKEC,58:GOSUB217:NEXT:I=I+1:IFO<>0THENW=17
  113. 112 RETURN
  114. 113 F=0:G=-1:P=0:PRINTA$""S$:PRINTS$
  115. 114 FORY=1TO5:FORX=1TO9:H=H+1:D=PEEK(H):IFD<>32THENP=P+1
  116. 115 NEXT:H=H-49:NEXT
  117. 116 IFG=-1THENF=P:G=0:P=0:H=H+223:GOTO114
  118. 117 G=P:H=1827:RETURN
  119. 118 A1=A1/33:IFA1<-4THENA1=-4
  120. 119 IFA1>4THENA1=4
  121. 120 IFA1>1THENA1=A1-1
  122. 121 AA=AA+A1+7:IFAA>33THENAA=33
  123. 122 IFAA<6THENAA=6
  124. 123 FORZ=1TO3:GOSUB133:PRINTC$:POKELF,1:POKELF,0:GOSUB133:PRINTD$:NEXT
  125. 124 GOSUB134:GOSUB133:PRINTC$:POKELF,1:POKELF,0:GOSUB133:PRINTD$:GOSUB135
  126. 125 IFA1>0THEN129
  127. 126 IFA1=0THEN131
  128. 127 FORZ=1TO2:GOSUB133:PRINTE$:POKELF,1:GOSUB219:POKELF,0:GOSUB133:PRINTF$
  129. 128 AA=AA+1:NEXT:GOTO37
  130. 129 FORZ=1TO2:GOSUB133:PRINTG$:POKELF,1:GOSUB219:POKELF,0:GOSUB133:PRINTH$
  131. 130 AA=AA-1:NEXT:GOTO37
  132. 131 FORZ=1TO2:GOSUB133:PRINTI$:POKELF,1:GOSUB219:POKELF,0:GOSUB133:PRINTJ$
  133. 132 NEXT:GOTO37
  134. 133 PRINT""SPC(AA);:FORV=1TO25:NEXT:RETURN
  135. 134 FORV=1TO500:NEXT:RETURN
  136. 135 FORV=1TO1000:NEXT:RETURN
  137. 136 FORV=1TO250:NEXT:RETURN
  138. 137 IFNN=1THENRETURN
  139. 138 PRINT""SPC(13)"OUT OF BOUNDS!":GOSUB215:FORV=1TO2500:NEXT
  140. 139 PRINT""SPC(13)"[192][192] [158]ROUND"MM"[157] [192][192][192]":NN=1:RETURN
  141. 140 FORX=1TO10:GOSUB225:NEXT:RETURN
  142. 141 PRINTA$;"  "S$"[146]"S$S$"
  143. 142 [151]LF,4:[129]V[178]1[164]9:[141]225:[130]
  144. 143 [151]LF,0:B$[178]Y$:P[178]F[172]2.44:[139]G[177]0[167]B$[178]Z$:P[178]G[172]2.44
  145. 144 T[178]8[171]([195](Z$)[173]2):[139]T[179]0[167]T[178]0
  146. 145 [153]A$""[163]T)Z$
  147. 146 T[178]33[171][195](Y$)[173]2:[139]T[170][195](Y$)[177]39[167]T[178]40[171][195](Y$)
  148. 147 [153]A$"CMD"[166]T)Y$
  149. 148 [153]""[181](F[172]2.33)"CMD% LEFT"
  150. 149 [153]""[166]28)[181](G[172]2.33)"CMD% LEFT"
  151. 150 [153]"";
  152. 151 [139]F[178]G[167][153]"    IT'S A TIE!":[137]154
  153. 152 [153]"ONCMDTHE CONQUERER IS ";:[139]F[179]G[167][153]Y$:S[178]S[170]1:[137]154
  154. 153 [153]Z$:RR[178]RR[170]1
  155. 154 [153]A$""S$;:[133]"  WANT TO PLAY AGAIN (Y/N)  SINCMDCMDCMD";N$
  156. 155 [139][200](N$,1)[178]"S"[167][141]241
  157. 156 [139][200](N$,1)[179][177]"N"[167]160
  158. 157 [151]53269,0:[153]"LOAD  THANK YOU FOR PLAYING CASTLE HASSLE
  159. 158 PRINT"[159]    THE FINAL SCORE'S : [158][145]"Y$"="S:PRINTTAB(24)""Z$"="RR"[144]":END
  160. 160 IFLEFT$(N$,1)<>"Y"THEN154
  161. 161 T$=Z$:Z$=Y$:Y$=T$:X=S:S=RR:RR=X
  162. 162 GOSUB227:POKE53269,0:GOTO26
  163. 163 PRINT"WHAT'S PLAYER"J"[157] 'S NAME            [157][157][157][157][157][157][157][157][157][157] [191][157][157][157]";:INPUTAP$
  164. 164 IFLEN(AP$)<2THENPRINT"[145][145][145]";:GOTO163
  165. 165 IFLEFT$(AP$,4)="COMP"THENAP$="COMPUTER"
  166. 166 AP$=LEFT$(AP$,8):GOSUB222:RETURN
  167. 167 PRINT"[147]"TAB(12)"[158][182][215][197][193][212][200][197][210][215][193][210] [201][201][146][181]":POKE53272,22:PRINT"[155][212]HE";
  168. 168 PRINT" OBJECT IS TO DESTROY YOUR [207][208][208][207][206][197][206][212]'[211] [200][207][205][197] USING [206]ATURE'S WEAPONS.
  169. 169 [153]"(null)HE FORCES OF LEFT$ATNRIGHT$(null), (null)RIGHT$CHR$LEFT$(null)(null)RIGHT$(null)CHR$, (null)ATNRIGHT$(null), AND (null)(null)(null)(null)ATNSTR$(null) ARE AT YOUR COMMAND.
  170. 170 PRINT"[193]FTER [215][197][193][208][207][206] SELECTION YOU MUST SHOW THE'[195][200][193][210][199][197]' YOU WANT TO APPLY.
  171. 171 [153]"(null)ALUES ARE TO BE BETWEEN -150 AND 150,
  172. 172 PRINT" NUMBERS [206]EGATIVE GO TO THE LEFT OF THE   SCREEN AND [208]OSITIVE ";
  173. 173 PRINT"TO THE RIGHT.":PRINT"[193] '[215][201][206][196] [198][193][195][212][207][210]' IS ALSO INDICATED AND
  174. 174 [153]" MUST BE TAKEN INTO CONSIDERATION - OR +  WHEN DETERMINING THE";
  175. 175 [153]"'LENLEFT$ATN(null)CHR$VAL' TO USE.":[153]"ATNLSO, JUST AS IN LIFE, A RANDOM 'ATNLEN(null) (null)ASC ";
  176. 176 [153]" (null)ATN(null)(null)(null)VAL'(null) STRIKES FROM TIME TO TIME.
  177. 177 PRINT"[158]        [182][200][201][212][160][193][206][217][160][203][197][217][160][212][207][160][195][207][206][212][201][206][213][197]":FORV=1TO9:GETA$:NEXT
  178. 178 GETA$:IFA$=""THEN178
  179. 179 GOTO246
  180. 180 IFLEFT$(Z$,4)="COMP"THENCT=2
  181. 181 GOTO49
  182. 182 IFLEFT$(Y$,4)="COMP"THENCT=1
  183. 183 GOTO49
  184. 184 PB=0:O=1:IFAA<8THENB$="L":N$=B$:LI=LI+1:IFLI<3ANDMM<7THEN68
  185. 185 IFMM=1THENB$="R":N$=B$:GOTO68
  186. 186 PB=PB+1:IFPB>8THENB$="H":N$=B$:GOTO68
  187. 187 B$=MID$("HRT",INT(RND(1)*3)+1,O):N$=B$:IFB$="T"ANDRND(1)<.7THEN186
  188. 188 IFB$="R"ANDRND(1)<.6ORLI>0ORMM>6THEN186
  189. 189 GOTO68
  190. 190 IFB$="L"ANDAA>3THENA1=MM*-20:GOTO80
  191. 191 IFB$="L"ANDAA<4THENA1=0:GOTO80
  192. 192 H=1668:FORY=0TO4:FORX=0TO8:D=PEEK(H+X):IFD=32THEN194
  193. 193 P=X:PQ=(100-(Y*5))/25:QQ=X:QP=Y:Y=5:X=9
  194. 194 NEXT:H=H+40:NEXT:H=1827
  195. 195 A1=(EE*-1)-((AA-P)*PQ)-1
  196. 196 IFN$="T"THENEE=(EE/1.5)+5:GOTO80
  197. 197 IFAA<4ANDQQ>5ANDQP>3THENA1=A1-QQ-AA:GOTO80
  198. 198 IFAA<4ANDQQ>4THENA1=A1-QQ-AA
  199. 199 GOTO80
  200. 200 PB=0:O=1:IFAA>18THENB$="L":N$=B$:LX=LX+1:IFLX<3ANDMM<6THEN68
  201. 201 IFMM=1THENB$="R":N$=B$:GOTO68
  202. 202 PB=PB+1:IFPB>8THENB$="H":N$=B$:GOTO68
  203. 203 B$=MID$("HRT",INT(RND(1)*3)+1,O):N$=B$:IFB$="T"ANDRND(1)<.7THEN202
  204. 204 IFB$="R"ANDRND(1)<.6ORLX>0ORMM>6THEN202
  205. 205 GOTO68
  206. 206 IFB$="L"ANDAA<23THENA1=MM*20:GOTO80
  207. 207 IFB$="L"ANDAA>22THENA1=0:GOTO80
  208. 208 H=1699:FORY=0TO4:FORX=0TO8:D=PEEK(H-X):IFD=32THEN210
  209. 209 P=X:PQ=(100-(Y*6))/25:Y=5:X=9
  210. 210 NEXT:H=H+40:NEXT:H=1827
  211. 211 A1=(EE*-1)+(((28-AA)-P)*PQ)
  212. 212 IFMM=1THENA1=A1-9
  213. 213 IFN$="T"THENEE=(EE/1.5)-5
  214. 214 GOTO80
  215. 215 FORX=1TO20:POKE54277,29:POKE54276,17:POKE54273,17:POKE54276,129
  216. 216 POKE54273,125:POKE54276,0:POKE54277,0:NEXT
  217. 217 POKE54277,8:POKE54283,17:POKE54280,92:POKE54279,169
  218. 218 POKE54283,0:POKE54277,0:POKE54272,0:RETURN
  219. 219 POKE54277,29:POKE54276,129:POKE54273,6:POKE54272,4
  220. 220 FORV=1TO20:POKELF,1:POKE53272,22:POKE53272,21:POKELF,0:NEXT
  221. 221 POKE54276,0:POKE54277,0:POKE54272,0:RETURN
  222. 222 POKE54276,0:POKE54277,0:POKE54272,0
  223. 223 POKE54277,29:POKE54276,17:POKE54273,17:POKE54272,37
  224. 224 FORX=1TO700:NEXT:POKE54276,0:POKE54277,0:POKE54272,0:RETURN
  225. 225 POKE54276,0:POKE54277,0:POKE54277,29:POKE54276,33:FORX=40TO140STEP6
  226. 226 POKE54273,15+X:NEXT:POKE54276,0:POKE54277,0:RETURN
  227. 227 POKE54276,0:POKE54277,0:POKE54273,0
  228. 228 POKE54283,0:POKE54284,0:POKE54280,0
  229. 229 READH:READL:READD
  230. 230 IFH=-1THENRESTORE:RETURN
  231. 231 POKE54277,29:POKE54273,H/1.3:POKE54272,L:POKE54276,67:POKE54278,15
  232. 232 POKE54284,29:POKE54280,H/2:POKE54283,17
  233. 233 FORT=1TOD/17:POKE54275,T:NEXT:GOTO227
  234. 234 DATA66,111,400:88,33,450,0,0,70,99,111,200,22,77,200,66,50,950,88,33,450
  235. 235 DATA50,44,200,33,33,90,33,88,320,55,77,77,88,33,200
  236. 236 DATA66,111,400:88,33,450,0,0,70,99,111,200,22,77,200,66,50,950,88,33,450
  237. 237 DATA50,44,200,33,33,90,33,88,320,55,77,77,88,33,999
  238. 238 DATA-1,-1,-1
  239. 239 POKE54276,0:POKE54277,0:POKE54277,29:POKE54276,33:FORX=160TO1STEP-5
  240. 240 POKE54273,66:POKE54273,33:NEXT:POKE54276,0:POKE54277,0:RETURN
  241. 241 PRINT"[159] THE CURRENT SCORE'S : [158][145]"Y$"="S
  242. 242 PRINT"[158]"SPC(23)Z$"="RR
  243. 243 FORV=1TO5000:NEXT:PRINT"":FORV=1TO7
  244. 244 PRINT"                        ";
  245. 245 NEXT:RETURN
  246. 246 PRINT"[147]"TAB(11)"[158][182][215][197][193][212][200][197][210][215][193][210] [201][201][146][181]":PRINT"[155][212]HE [195][207][205][208][213][212][197][210] ";
  247. 247 PRINT"[208][204][193][217][211], IF YOU TYPE IN       '[195][207][205][208][213][212][197][210]' FOR PLAYER 1 OR PLAYER 2.
  248. 248 [153]"(null)LAY CONTINUES UNTIL THE (null)(null)(null)(null)STR$ IS        COMPLETED, GIVING BOTH";
  249. 249 [153]" PLAYERS AN EQUAL  NUMBER OF (null)HEATHER (null)TRIKES.
  250. 250 PRINT"[197]NTER A '[211]' AS WEAPON SELECTION TO SEE   [195]URRENT [211]CORES. (1 POINT ";
  251. 251 PRINT"PER GAME)     [197]NTER A '[209]' AS WEAPON SELECTION TO [209][213][201][212]  THE GAME IN";
  252. 252 PRINT" PROGRESS.":PRINT"[204]IGHTNING IS THE MOST DESTRUCTIVE WEAPON ";
  253. 253 PRINT"AND HAIL THE MOST USEFUL.
  254. 254 [153]"(null)HE RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null) WILL BE SHOWN (null)(null)LENVAL, SO  IF YOU DON'T UNDER";
  255. 255 [153]"STAND, THEN HIT '(null)'     TO REPEAT THEM.
  256. 256 PRINT"[158]      [182][200][201][212][160][193][206][217][160][203][197][217][160][212][207][160][211][212][193][210][212][160][208][204][193][217][146][161]":FORV=1TO9:GETA$:NEXT
  257. 257 GETA$:IFA$=""THEN257
  258. 258 IFA$="R"THEN167
  259. 259 PRINT"[147]":POKE53272,21:GOTO14
  260. 260 V=53248:POKEV+21,0:RESTORE:FORX=1TO39:READA:NEXT:FORX=0TO7:POKE2040+X,11
  261. 261 NEXT:FORX=0TO62:READA:POKE704+X,A:NEXT:POKEV+23,199:POKEV+29,137
  262. 262 POKEV+27,120:FORX=0TO16:READA:POKEV+X,A:NEXT:FORX=39TO46:READA
  263. 263 POKEV+X,A:NEXT:RETURN
  264. 264 DATA0,48,0,0,112,0
  265. 265 DATA0,248,0,0,248,0
  266. 266 DATA1,252,0,12,252,0
  267. 267 DATA13,254,0,15,254,224
  268. 268 DATA7,253,224,7,251,224
  269. 269 DATA25,253,192,31,255,192
  270. 270 DATA111,255,216,111,255,184
  271. 271 DATA119,255,120,63,255,240
  272. 272 DATA31,255,224,7,255,0
  273. 273 DATA3,254,0,1,252,0
  274. 274 DATA0,248,0
  275. 275 DATA19,176,30,148,58,154,111,197,227,197,229,191,228,176,49,176,132
  276. 276 DATA5,5,5,9,10,9,8,5
  277. 277 END
  278.